home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / miscutl1.arc / MEM640.ZAP < prev    next >
Encoding:
Text File  |  1983-12-14  |  2.4 KB  |  71 lines
  1. l100,1,5,1
  2. e10b,20
  3. w100,1,5,1
  4. nb:ibmbio.com
  5. l
  6. r
  7. R CX
  8. 1230
  9. A12d0,12ff
  10. PUSH    AX                                 
  11. PUSH    ES                                 
  12. PUSH    DI                                 
  13. XOR     AX,AX                              
  14. MOV     ES,AX                              
  15. MOV     DI,0472                            
  16. MOV     AX,4321                            
  17. ES:                                        
  18. CMP     AX,[DI]                            
  19. JZ      12F7                               
  20. MOV     DI,0413                            
  21. MOV     AX,0280                            
  22. STOSW                                      
  23. MOV     AX,0240                            
  24. STOSW                                      
  25. CALL    1300                               
  26. MOV     DI,0472                            
  27. MOV     AX,4321                            
  28. STOSW                                      
  29. POP     DI                                 
  30. POP     ES                                 
  31. POP     AX                                 
  32. MOV     AL,02                              
  33. STOSB                                      
  34. JMP     08DC                               
  35. PUSH    CX                                 
  36. PUSH    DX                                 
  37. PUSH    SI                                 
  38. MOV     DX,8800                            
  39. MOV     AH,03                              
  40. MOV     AL,00                              
  41. MOV     ES,DX                              
  42. MOV     CX,8000                            
  43. SUB     DI,DI                              
  44. REPZ                                       
  45. STOSB                                      
  46. ADD     DX,0800                            
  47. DEC     AH                                 
  48. JNZ     130A                               
  49. XOR     AX,AX                              
  50. MOV     ES,AX                              
  51. POP     SI                                 
  52. POP     DX                                 
  53. POP     CX                                 
  54. RET                                        
  55. NOP                                        
  56. NOP                                        
  57. NOP                                        
  58. NOP                                        
  59. NOP                                        
  60. NOP                                        
  61.  
  62. E,3E7,B0,00
  63. A8D9
  64. JMP     12D0
  65.  
  66. W
  67. l100,1,5,1
  68. e10b,27
  69. w100,1,5,1
  70. Q
  71.